home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / circle.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  589 b   |  26 lines
  1.   rem bj gleason
  2.   rem sample circles
  3.   rem cx,cy are the center x,y coordinates
  4.   rem r is the radius
  5.   screen 6  ' graphics mode
  6.   for cx = 20 to 70 step 10
  7.     r = cx/2   ' draw a series of circles
  8.     cy = 32
  9.     gosub 1000
  10.   next cx
  11.   alarm
  12.   screen 7  ' text mode
  13.   if isrun then run"menu" else end
  14.  
  15. 1000 ' circle subroutine
  16.   locate cx+r, cy
  17.   stv = 360/r/7  ' step is based on radius
  18.   for theta = 0 to 360 step stv
  19.     angle=theta*3.1415/180
  20.     sx = r*cos(angle)
  21.     sy = r*sin(angle)
  22.     sx = cx+sx : sy = cy+sy
  23.     pset(sx,sy),1
  24.   next theta
  25.   return
  26. ə